Public Class FormAnadirProyecto

    Dim _cSQL As GestTime.cSQL

    Public Sub New(ByVal cSQL As GestTime.cSQL)
        InitializeComponent()
        Me._cSQL = cSQL
        Me.lblResultado.Visible = False
    End Sub

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        ' Comprobar que todo es correcto
        Dim numProy As Integer
        If (Integer.TryParse(Me.txtNumProyecto.Text, numProy) And _
            (Me.txtTextProyecto.Text <> "") And (Me.txtDescProyecto.Text <> "")) Then
            'If (Me._cSQL.AddProyecto(numProy, Me.txtTextProyecto.Text, Me.txtDescProyecto.Text)) Then

            Dim campos() As String = {"numProy", "textProy", "descripcion"}
            Dim valores() As String = {numProy, Me.txtTextProyecto.Text, Me.txtDescProyecto.Text}

            If (Me._cSQL.IntertRow("proyecto", campos, valores) > 0) Then
                Me.lblResultado.Visible = True
                Me.lblResultado.Text = "Proyecto " & numProy.ToString() & " registrado correctamente."
            End If

        Else
            cError.showInfo("Los datos no son correctos.")
        End If
    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.Close()
    End Sub
End Class